% A character added to roman fonts for Volume 2 of The Art of C. P.:

"Prime symbol";
call charbegin('043,3.6,0,0,ph+pb,0,(ph+pb).slant+.5pu);
cpen; new w98,w99; w98=round .375[w0,w1]; w99=round .75(2[w2,w3]);
if w98>w99: new w98; w99=w98;
fi;
rt99x1=r; lft98x2=round .4u; top99y1=h+b; bot98y2=round .5(h+.5b);
call `a cdraw(1,2,99,98).	% diagonal